#!/usr/bin/php
<?php
$_SERVER["DOCUMENT_ROOT"] = "/home/bitrix/www";
$DOCUMENT_ROOT = $_SERVER["DOCUMENT_ROOT"];
define("NO_KEEP_STATISTIC", true);
define("NOT_CHECK_PERMISSIONS", true);
set_time_limit(0);
define("LANG", "ru");
require($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_before.php");
?>

<?
$f = fopen($_SERVER["DOCUMENT_ROOT"]."/agents/log_it.txt", "a+");
fwrite($f, "**********************************\r\n*** запуск ".date("d.m.Y H:i:s")." ***\r\n**********************************\r\n");

if(!CModule::IncludeModule("iblock"))
{
    ShowError("Модуль Информационных блоков не установлен");
    return;
}
?>

<? 
$IBLOCK_ID = "31";
$IBLOCK_LOGS_ID = "32";
$GROUP_ADMINS = "11";
$GROUP_SUPPORT = "10";
$BITRIX_ADMIN_ID = "804";
$MAIL_TEMPL_PREFIX = "REQUESTS_IT";

function GetRequestProperties($request)
{
    $items = CIBlockElement::GetList(
        array("ID"=>"ASC"),
        array("ID"=>$request["PROPERTY_STATUS_VALUE"], "ACTIVE"=>"Y"),
        false,
        false,
        array("ID", "NAME")
    );
    if ($item = $items->GetNext())
        $status = $item["NAME"];
    else
        $status = "";
    
    if ($request["PROPERTY_CATEGORY_VALUE"]>0)
    {
       $items = CIBlockElement::GetList(
            array("ID"=>"ASC"),
            array("ID"=>$request["PROPERTY_CATEGORY_VALUE"], "ACTIVE"=>"Y"),
            false,
            false,
            array("ID", "NAME")
        );
        if ($item = $items->GetNext())
            $category = $item["NAME"];
        else
            $category = "";
    }
    else
        $category = "";
            
    if ($request["PROPERTY_CRITICALITY_VALUE"]>0)
    {
        $items = CIBlockElement::GetList(
            array("ID"=>"ASC"),
            array("ID"=>$request["PROPERTY_CRITICALITY_VALUE"], "ACTIVE"=>"Y"),
            false,
            false,
            array("ID", "NAME")
        );
        if ($item = $items->GetNext())
            $crit = $item["NAME"];
        else
            $crit = "";                
    }
    else
        $crit = "";

    if ($request["PROPERTY_DIFFICULTY_VALUE"]>0)
    {
        $items = CIBlockElement::GetList(
            array("ID"=>"ASC"),
            array("ID"=>$request["PROPERTY_DIFFICULTY_VALUE"], "ACTIVE"=>"Y"),
            false,
            false,
            array("ID", "NAME")
        );
        if ($item = $items->GetNext())
            $diffic = $item["NAME"];
        else
            $diffic = "";                                
    }
    else
        $diffic = "";

    if ($request["PROPERTY_RATE_VALUE"]>0)
    {
        $items = CIBlockElement::GetList(
            array("ID"=>"ASC"),
            array("ID"=>$request["PROPERTY_RATE_VALUE"], "ACTIVE"=>"Y"),
            false,
            false,
            array("ID", "NAME")
        );
        if ($item = $items->GetNext())
            $rate = $item["NAME"];
        else
            $rate = "";                 
    }
    else
        $rate = "";
        
    $str = "Категория         - ".$category."\r\nКритичность       - ".$crit."\r\nСложность         - ".$diffic."\r\nСтатус            - ".$status."\r\nОценка ответов    - ".$rate."\r\n";
    return $str;
}


// выбираем свойства инфоблока для определения типа комментария
$types = array();
$prs = CIBlockPropertyEnum::GetList(Array("DEF"=>"DESC", "SORT"=>"ASC"), Array("IBLOCK_ID"=>$IBLOCK_LOGS_ID, "CODE"=>"TYPE"));
while($field = $prs->GetNext())
{
    $types[$field["VALUE"]] = $field["ID"];
}


$requests = CIBlockElement::GetList(
        array("ID"=>"ASC"),
        array("IBLOCK_ID"=>$IBLOCK_ID, "ACTIVE"=>"Y", "PROPERTY_DATE_CLOSE"=>false),
        false,
        false,
        Array("ID", "NAME", "IBLOCK_ID", "CREATED_BY", "DATE_CREATE", "PROPERTY_STATUS", "PROPERTY_CATEGORY", "PROPERTY_RESPONSIBLE_USER", "PROPERTY_CRITICALITY", "PROPERTY_DIFFICULTY", "PROPERTY_RATE", "PROPERTY_DATE_CLOSE")
);

while($request = $requests->GetNext())
{
    fwrite($f, "обрабатываем заявку ID=".$request["ID"]."\r\n");
    
    $logs = CIBlockElement::GetList(
        array("DATE_CREATE"=>"ASC"),
        array("IBLOCK_ID"=>$IBLOCK_LOGS_ID, "ACTIVE"=>"Y", "PROPERTY_REQUEST"=>$request["ID"]),
        false,
        false,
        array("ID", "CREATED_BY", "DATE_CREATE", "PREVIEW_TEXT", "PROPERTY_TYPE")
    );
    while($log = $logs->GetNext())
    {
        $request["LOG"][] = $log;
    }
    
    //$status = GetIBlockElement($request["PROPERTY_STATUS_VALUE"]);
    $items = CIBlockElement::GetList(
        array("ID"=>"ASC"),
        array("ID"=>$request["PROPERTY_STATUS_VALUE"], "ACTIVE"=>"Y"),
        false,
        false,
        array("ID", "NAME")
    );
    if ($item = $items->GetNext())
        $status["NAME"] = $item["NAME"];
    else
        $status["NAME"] = "";
       
    // проверка на завершенную задачу (если последнее сообщение оставлено техподдержкой - закрывать, иначе сообщение автору)
    if (($status["NAME"]=="Успешно решено") || ($status["NAME"]=="Не представляется возможным решить"))
    {
        fwrite($f, "статус заявки - ".$status["NAME"]."\r\n");
    
        // перебираем лог заявки и ищем ключевые точки
        $timeLastAnswerSupport = "";
        $timeLastAnswerOwner = $request["DATE_CREATE"];
        $timeSetCompleted = "";
        $timeSendReminder = "";
        foreach($request["LOG"] as $log)
        {
            if ($log["PROPERTY_TYPE_VALUE"]=="Системная")
            {
                if (strpos($log["PREVIEW_TEXT"], "Успешно решено")!==false)
                        $timeSetCompleted = $log["DATE_CREATE"];
                
                if (strpos($log["PREVIEW_TEXT"], "Отправлено напоминание автору заявки")!==false)
                        $timeSendReminder = $log["DATE_CREATE"];
            }
            else
            if (in_array($GROUP_ADMINS, CUser::GetUserGroup($log["CREATED_BY"])) || in_array($GROUP_SUPPORT, CUser::GetUserGroup($log["CREATED_BY"])))
                $timeLastAnswerSupport = $log["DATE_CREATE"];
            else
                $timeLastAnswerOwner = $log["DATE_CREATE"];                                                
        }
        
        if (strlen($timeLastAnswerSupport)==0)
            $timeLastAnswerSupport = $timeSetCompleted;

        $dtCreated = date_create($request["DATE_CREATE"]);
        $dtLastAnswerSupport = date_create($timeLastAnswerSupport);
        $dtLastAnswerOwner = date_create($timeLastAnswerOwner);
        $dtSetCompleted = date_create($timeSetCompleted);
        $dtSendReminder = date_create($timeSendReminder);
        $dtCurrent = date_create("now");
        
        $action = 0;
        if ($dtSetCompleted>$dtCreated)
        {
            fwrite($f, "Current = ".date("now")."\r\n");
            fwrite($f, "Created = ".$request["DATE_CREATE"]."\r\n");
            fwrite($f, "AnswerSupport = ".$timeLastAnswerSupport."\r\n");
            fwrite($f, "AnswerOwner = ".$timeLastAnswerOwner."\r\n");
            fwrite($f, "SetCompleted = ".$timeSetCompleted."\r\n");
            fwrite($f, "SendReminder = ".$timeSendReminder."\r\n");
            
            fwrite($f, "Дата установки успешно решено больше даты создания заявки\r\n");
            
            if ($dtLastAnswerSupport>$dtLastAnswerOwner)
                fwrite($f, "Дата последнего ответа сотрудника ТП больше даты ответа автора\r\n");
            
            fwrite($f, "Разница между текущей датой и датой последнего ответа сотрудника ТП - ".date_diff($dtLastAnswerSupport,$dtCurrent,true)->format('%r%a')."\r\n");                       
            
            fwrite($f, "Разница между текущей датой и датой последнего напоминания о закрытии - ".date_diff($dtSendReminder,$dtCurrent,true)->format('%r%a')."\r\n");
            
            if (($dtLastAnswerSupport>$dtLastAnswerOwner) && (date_diff($dtLastAnswerSupport,$dtCurrent,true)->format('%r%a')>3) && ((strlen($timeSendReminder)==0)||(date_diff($dtSendReminder,$dtCurrent,true)->format('%r%a')>7)))
                $action = 1;                
            else
            if (($dtLastAnswerSupport>$dtLastAnswerOwner) && (date_diff($dtSendReminder,$dtCurrent,true)->format('%r%a')>4))
                $action = 2;
        }
        
        fwrite($f, "результат обработки времен - ".$action."\r\n");
        
        if ($action==1)
        {
            // системная запись в лог о автоматическом закрытии заявки
            $el = new CIBlockElement;
            $PROP = array();
            $PROP["REQUEST"] = $request["ID"];
            $PROP["TYPE"] = $types["Системная"];
            $arLoadArray = Array(
                "MODIFIED_BY"       => $BITRIX_ADMIN_ID,
                "CREATED_BY"        => $BITRIX_ADMIN_ID,
                "PROPERTY_VALUES"   => $PROP,
                "IBLOCK_ID"         => $IBLOCK_LOGS_ID,
                "NAME"              => "Системная запись к заявке #".$request["ID"],
                "ACTIVE"            => "Y",
                "PREVIEW_TEXT"      => "Отправлено напоминание автору заявки",
                "PREVIEW_TEXT_TYPE" => "html"
            );
            if (!$el->Add($arLoadArray))
                echo "Error: ".$el->LAST_ERROR;               
            
            // отсылаем напоминание автору
            $rsUser = CUser::GetByID($request["CREATED_BY"]);    
            $pitem = $rsUser->Fetch();
            $MESS["EMAIL_TO"] = $pitem["EMAIL"];
            $MESS["OWNER_NAME"] = $pitem["NAME"]." ".$pitem["LAST_NAME"];
            if ($request["PROPERTY_RESPONSIBLE_USER_VALUE"]>0)
            {
                $rsUser = CUser::GetByID($request["PROPERTY_RESPONSIBLE_USER_VALUE"]);    
                $pitem = $rsUser->Fetch();
                $MESS["RESPONSIBLE_USER"] = $pitem["NAME"]." ".$pitem["LAST_NAME"];
            }
            else
                $MESS["RESPONSIBLE_USER"] = "";
            
            if ($dtLastAnswerSupport>$dtLastAnswerOwner)
                $MESS["TIMESTAMP"] = $timeLastAnswerSupport;
            else
                $MESS["TIMESTAMP"] = $timeLastAnswerOwner;
            
            $MESS["ACT"] = "Автор    - ".$MESS["OWNER_NAME"]."\r\nСоздано  - ".$request["DATE_CREATE"]."\r\nИзменено - ".$MESS["TIMESTAMP"]."\r\n";

            $MESS["RP"] = "Ответственный     - ".$MESS["RESPONSIBLE_USER"]."\r\n".GetRequestProperties($request);

            $arEventFields = array(
                "EMAIL_TO"            => $MESS["EMAIL_TO"],
                "ID"                  => $request["ID"],
                "EMAIL_TITLE"         => "Автоматическое закрытие заявки - ".$request["NAME"],
                "BODY_TITLE"          => "Изменения в вашем обращении №".$request["ID"]." к службе IT поддержки.",
                "TITLE"               => $request["NAME"],
                "MESSAGE_BODY"        => "Заявка будет автоматически закрыта через 4 дня при отсутствии вашей реакции.",
                "AUTHOR_CREATE_TIMESTAMP" => $MESS["ACT"],
                "REQUEST_PROPERTIES"  => $MESS["RP"],
            );
            CEvent::Send($MAIL_TEMPL_PREFIX, "s1", $arEventFields, "N");            
        }
        else
        if ($action==2) 
        {
            // закрываем заявку
            CIBlockElement::SetPropertyValues($request["ID"], $request["IBLOCK_ID"], $BITRIX_ADMIN_ID, "USER_CLOSE");
            CIBlockElement::SetPropertyValues($request["ID"], $request["IBLOCK_ID"], date("d.m.Y h:i:s"), "DATE_CLOSE");
            
            // системная запись в лог о автоматическом закрытии заявки
            $el = new CIBlockElement;
            $PROP = array();
            $PROP["REQUEST"] = $request["ID"];
            $PROP["TYPE"] = $types["Системная"];
            $arLoadArray = Array(
                "MODIFIED_BY"       => $BITRIX_ADMIN_ID,
                "CREATED_BY"        => $BITRIX_ADMIN_ID,
                "PROPERTY_VALUES"   => $PROP,
                "IBLOCK_ID"         => $IBLOCK_LOGS_ID,
                "NAME"              => "Системная запись к заявке #".$request["ID"],
                "ACTIVE"            => "Y",
                "PREVIEW_TEXT"      => "Закрыто автоматически",
                "PREVIEW_TEXT_TYPE" => "html"
            );
            if (!$el->Add($arLoadArray))
                echo "Error: ".$el->LAST_ERROR;               
            
            // отправка письма автору и исполнителю
            $rsUser = CUser::GetByID($request["CREATED_BY"]);    
            $pitem = $rsUser->Fetch();
            $MESS["EMAIL_TO"] = $pitem["EMAIL"];
            $MESS["OWNER_NAME"] = $pitem["NAME"]." ".$pitem["LAST_NAME"];
            if ($request["PROPERTY_RESPONSIBLE_USER_VALUE"]>0)
            {
                $rsUser = CUser::GetByID($request["PROPERTY_RESPONSIBLE_USER_VALUE"]);    
                $pitem = $rsUser->Fetch();
                $MESS["EMAIL_TO"] .= ",".$pitem["EMAIL"];
                $MESS["RESPONSIBLE_USER"] = $pitem["NAME"]." ".$pitem["LAST_NAME"];
            }
            else
                $MESS["RESPONSIBLE_USER"] = "";
            
            if ($dtLastAnswerSupport>$dtLastAnswerOwner)
                $MESS["TIMESTAMP"] = $timeLastAnswerSupport;
            else
                $MESS["TIMESTAMP"] = $timeLastAnswerOwner;
            
            $MESS["ACT"] = "Автор    - ".$MESS["OWNER_NAME"]."\r\nСоздано  - ".$request["DATE_CREATE"]."\r\nИзменено - ".$MESS["TIMESTAMP"]."\r\n";

            $MESS["RP"] = "Ответственный     - ".$MESS["RESPONSIBLE_USER"]."\r\n".GetRequestProperties($request);

            $arEventFields = array(
                "EMAIL_TO"            => $MESS["EMAIL_TO"],
                "ID"                  => $request["ID"],
                "EMAIL_TITLE"         => "Автоматическое закрытие обращения - ".$request["NAME"],
                "BODY_TITLE"          => "Изменения в вашем обращении №".$request["ID"]." к службе IT поддержки.",
                "TITLE"               => $request["NAME"],
                "MESSAGE_BODY"        => "Обращение автоматически закрыто по истечении 7 дней после выставления статуса \"Успешно решено\" и отсутствия реакции автора обращения.",
                "AUTHOR_CREATE_TIMESTAMP" => $MESS["ACT"],
                "REQUEST_PROPERTIES"  => $MESS["RP"],
            );
            CEvent::Send($MAIL_TEMPL_PREFIX, "s1", $arEventFields, "N");            
        }
    }
    
    // проверка на отсутствие ответственного исполнителя
    if (strlen($request["PROPERTY_RESPONSIBLE_USER_VALUE"]==0))
    {
        // проверка если заявка создана более трех дней назад
        $dtCreated = date_create($request["DATE_CREATE"]);
        $dtCurrent = date_create("now");
        if (date_diff($dtCreated,$dtCurrent,true)->format('%r%a')>3)
        {
            fwrite($f, "не назначен ответственный исполнитель\r\n");
            
            // отсылаем уведомление администратору ТП
            // выбираем админов техподдержки для отправки копий сообщений
            $filter = Array("GROUPS_ID" => Array($arParams["GROUP_ADMINS"]));
            $rsUsers = CUser::GetList(($by="last_name"), ($order="asc"), $filter);         
            $MESS["EMAIL_TO"] = "";
            while ($res = $rsUsers->GetNext())
            {
                $MESS["EMAIL_TO"] .= $res["EMAIL"].",";
            }

            $rsUser = CUser::GetByID($request["CREATED_BY"]);    
            $pitem = $rsUser->Fetch();
            $MESS["OWNER_NAME"] = $pitem["NAME"]." ".$pitem["LAST_NAME"];

            foreach($request["LOG"] as $log)
            {
                if ($log["PROPERTY_TYPE_VALUE"]!="Системная")
                    $timeLastAnswer = $log["DATE_CREATE"];
            }

            $MESS["ACT"] = "Автор    - ".$MESS["OWNER_NAME"]."\r\nСоздано  - ".$request["DATE_CREATE"]."\r\nИзменено - ".$timeLastAnswer."\r\n";

            $MESS["RP"] = "Ответственный     - \r\n".GetRequestProperties($request);

            $arEventFields = array(
                "EMAIL_TO"            => $MESS["EMAIL_TO"],
                "ID"                  => $request["ID"],
                "EMAIL_TITLE"         => "Необходимо назначить ответственного исполнителя - ".$request["NAME"],
                "BODY_TITLE"          => "Информация по обращению №".$request["ID"]." к службе IT поддержки.",
                "TITLE"               => $request["NAME"],
                "MESSAGE_BODY"        => "По обращению более трех дней не назначен ответственный исполнитель.",
                "AUTHOR_CREATE_TIMESTAMP" => $MESS["ACT"],
                "REQUEST_PROPERTIES"  => $MESS["RP"],
            );
            CEvent::Send($MAIL_TEMPL_PREFIX, "s1", $arEventFields, "N");            
        }
    }
    
    // проверка на отсутствие реакции ответственного исполнителя
    if ((strlen($status["NAME"])==0) || (($status["NAME"]=="Ожидает рассмотрения") && strlen($request["PROPERTY_RESPONSIBLE_USER_VALUE"])))
    {
        fwrite($f, "статус заявки - ".$status["NAME"]."\r\n");
        // проверка если заявка создана более трех дней назад
        $dtCreated = date_create($request["DATE_CREATE"]);
        $dtCurrent = date_create("now");
        if (date_diff($dtCreated,$dtCurrent,true)->format('%r%a')>3)
        {
            fwrite($f, "отсутствует изменение статуса на рабочий\r\n");
            
            $rsUser = CUser::GetByID($request["PROPERTY_RESPONSIBLE_USER_VALUE"]);    
            $pitem = $rsUser->Fetch();
            $MESS["EMAIL_TO"] = $pitem["NAME"]." ".$pitem["LAST_NAME"];
            $MESS["RESPONSIBLE_USER"] = $pitem["NAME"]." ".$pitem["LAST_NAME"];
            
            $rsUser = CUser::GetByID($request["CREATED_BY"]);    
            $pitem = $rsUser->Fetch();
            $MESS["OWNER_NAME"] = $pitem["NAME"]." ".$pitem["LAST_NAME"];

            foreach($request["LOG"] as $log)
            {
                if ($log["PROPERTY_TYPE_VALUE"]!="Системная")
                    $timeLastAnswer = $log["DATE_CREATE"];
            }

            $MESS["ACT"] = "Автор    - ".$MESS["OWNER_NAME"]."\r\nСоздано  - ".$request["DATE_CREATE"]."\r\nИзменено - ".$timeLastAnswer."\r\n";

            $MESS["RP"] = "Ответственный     - ".$MESS["RESPONSIBLE_USER"]."\r\n".GetRequestProperties($request);

            $arEventFields = array(
                "EMAIL_TO"            => $MESS["EMAIL_TO"],
                "ID"                  => $request["ID"],
                "EMAIL_TITLE"         => "Необходимо изменить статус по обращению - ".$request["NAME"],
                "BODY_TITLE"          => "Информация по обращению №".$request["ID"]." к службе IT поддержки.",
                "TITLE"               => $request["NAME"],
                "MESSAGE_BODY"        => "По обращению более трех не был изменен статус с \"Ожидание рассмотрения\".",
                "AUTHOR_CREATE_TIMESTAMP" => $MESS["ACT"],
                "REQUEST_PROPERTIES"  => $MESS["RP"],
            );
            CEvent::Send($MAIL_TEMPL_PREFIX, "s1", $arEventFields, "N");            
        }
    }
    
    if (($status["NAME"]!="Успешно решено") || ($status["NAME"]!="Не представляется возможным решить"))
    {
        fwrite($f, "статус заявки - ".$status["NAME"]."\r\n");
    
        // перебираем лог заявки и ищем ключевые точки
        $timeLastAnswer = $request["DATE_CREATE"];
        foreach($request["LOG"] as $log)
        {
            if ($log["PROPERTY_TYPE_VALUE"]!="Системная")
                $timeLastAnswer = $log["DATE_CREATE"];
        }
        
        $dtLastAnswer = date_create($timeLastAnswer);
        $dtCurrent = date_create("now");

        if (date_diff($dtLastAnswer,$dtCurrent,true)->format('%r%a')>60)
        {
            fwrite($f, "60 дней нет активности\r\n");
            
            // закрываем заявку
            CIBlockElement::SetPropertyValues($request["ID"], $request["IBLOCK_ID"], $BITRIX_ADMIN_ID, "USER_CLOSE");
            CIBlockElement::SetPropertyValues($request["ID"], $request["IBLOCK_ID"], date("d.m.Y h:i:s"), "DATE_CLOSE");
            
            // системная запись в лог о автоматическом закрытии заявки
            $el = new CIBlockElement;
            $PROP = array();
            $PROP["REQUEST"] = $request["ID"];
            $PROP["TYPE"] = $types["Системная"];
            $arLoadArray = Array(
                "MODIFIED_BY"       => $BITRIX_ADMIN_ID,
                "CREATED_BY"        => $BITRIX_ADMIN_ID,
                "PROPERTY_VALUES"   => $PROP,
                "IBLOCK_ID"         => $IBLOCK_LOGS_ID,
                "NAME"              => "Системная запись к заявке #".$request["ID"],
                "ACTIVE"            => "Y",
                "PREVIEW_TEXT"      => "Закрыто автоматически",
                "PREVIEW_TEXT_TYPE" => "html"
            );
            if (!$el->Add($arLoadArray))
                echo "Error: ".$el->LAST_ERROR; 
            
            if (strlen($request["PROPERTY_RESPONSIBLE_USER_VALUE"]))
            {
                $rsUser = CUser::GetByID($request["PROPERTY_RESPONSIBLE_USER_VALUE"]);    
                $pitem = $rsUser->Fetch();
                $MESS["EMAIL_TO"] = $pitem["NAME"]." ".$pitem["LAST_NAME"];
                $MESS["RESPONSIBLE_USER"] = $pitem["NAME"]." ".$pitem["LAST_NAME"].",";
            }
            else
                $MESS["RESPONSIBLE_USER"] = "";
            
            $rsUser = CUser::GetByID($request["CREATED_BY"]);    
            $pitem = $rsUser->Fetch();
            $MESS["OWNER_NAME"] = $pitem["NAME"]." ".$pitem["LAST_NAME"];
            $MESS["EMAIL_TO"] .= $pitem["NAME"]." ".$pitem["LAST_NAME"];

            $MESS["ACT"] = "Автор    - ".$MESS["OWNER_NAME"]."\r\nСоздано  - ".$request["DATE_CREATE"]."\r\nИзменено - ".$timeLastAnswer."\r\n";

            $MESS["RP"] = "Ответственный     - ".$MESS["RESPONSIBLE_USER"]."\r\n".GetRequestProperties($request);

            $arEventFields = array(
                "EMAIL_TO"            => $MESS["EMAIL_TO"],
                "ID"                  => $request["ID"],
                "EMAIL_TITLE"         => "Автоматическое закрытие обращения - ".$request["NAME"],
                "BODY_TITLE"          => "Информация по обращению №".$request["ID"]." к службе IT поддержки.",
                "TITLE"               => $request["NAME"],
                "MESSAGE_BODY"        => "Обращение автоматически закрыто ввиду отсутствия активности в течении последних 60 дней.",
                "AUTHOR_CREATE_TIMESTAMP" => $MESS["ACT"],
                "REQUEST_PROPERTIES"  => $MESS["RP"],
            );
            CEvent::Send($MAIL_TEMPL_PREFIX, "s1", $arEventFields, "N");            
        }
        
    }    
    
    fwrite($f, "----\r\n");
}

fclose($f);
?>


